## not specified location and scatter
x <- as.matrix(iris[, 1:2])
bivcauchy.contour(x)
## with specified location and scatter
m <- colMeans(x)
s <- cov(x)
## in this case you may need to adjust the data points youself
## "play"" with minimum and maximum values of the two axes
y <- rbind( apply(x, 2, min) - 1, apply(x, 2, max) + 2 )
bivcauchy.contour(y, m = m, s = s, add.points = FALSE)
Run the code above in your browser using DataLab